home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / source / lib / ww2-39.g < prev    next >
Text File  |  1995-04-14  |  1KB  |  63 lines
  1. (game-module "ww2-39"
  2.   (title "WWII Sep 39")
  3.   (blurb "Full WWII, September 1939.  This is a monster game, based on the advanced ww2 unit types.")
  4.   (base-module "ww2-adv")
  5.   (variants
  6.    (see-all true)
  7.    )
  8.   (instructions (
  9.    "In this game you play the national leader of your country during WWII."
  10.    ))
  11.   )
  12.  
  13. ;;; Define basic terrain.
  14.  
  15. (include "earth-1deg")
  16.  
  17. (set synthesis-methods nil)
  18.  
  19. ;;; All the participants and major neutrals.
  20. ;;; (should include all the "minor powers" eventually)
  21.  
  22. (side 1 (name "UK") (emblem-name "flag-uk"))
  23. (side 2 (name "France") (emblem-name "flag-france"))
  24. (side 3 (name "USA") (emblem-name "flag-usa"))
  25. (side 4 (name "Germany") (emblem-name "flag-swastika"))
  26. (side 5 (name "Italy") (emblem-name "flag-italy"))
  27. (side 6 (name "Japan") (emblem-name "flag-japan"))
  28. (side 7 (name "USSR") (emblem-name "soviet-star"))
  29. (side 8 (name "China") (emblem-name "flag-china"))
  30. (side 9 (name "Spain") (emblem-name "flag-spain"))
  31.  
  32. ;;; Two-letter codes for sides.
  33.  
  34. (define uk 1)
  35. (define fr 2)
  36. (define us 3)
  37. (define de 4)
  38. (define it 5)
  39. (define jp 6)
  40. (define su 7)
  41. (define zh 8)
  42. (define es 9)
  43.  
  44. ;;; Define the nationalities of the people.
  45.  
  46. (include "p-e1-1938")
  47.  
  48. ;;; Define the cities.
  49.  
  50. (include "u-e1-1938")
  51.  
  52. ;; (add minor countries also?)
  53.  
  54. ;; (set up agreements applying to particular dates)
  55.  
  56. ;; not really correct
  57.  
  58. (scorekeeper (do last-side-wins))
  59.  
  60. ;; Default to setting up at the historical outbreak of the war.
  61.  
  62. (set initial-date "Sep 1939")
  63.